home *** CD-ROM | disk | FTP | other *** search
/ Windows News 2006 October / wn148cd2.iso / Windows / Travailler / QuickZip / quickzip_460013.exe / {app} / Scripts / File / Akp Add to ZipTest.akp < prev    next >
Text File  |  2002-12-17  |  185b  |  10 lines
  1. var ParamList : TStrings;
  2.     i : integer;
  3. begin
  4. ParamList := Param;
  5. open('c:\akpscripttest.zip');
  6. for i := 0 to ParamList.count -1 do
  7.   add(Paramlist.strings[i]);
  8. DoAdd;
  9. end.
  10.